
************************************************************************************************************
**#							FIGURE IA-3: YEARLY CHANGES IN THE CEO AND MEDIAN EMPLOYEE PAY
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

*pct_ch_ceopay = percent change in CEO pay trunacated at 100%
*pct_ch_mepay = percent change in CEO pay trunacated at 100%

***********************************************
*Panel A - Change in CEO Pay Reporting Year 1-2
***********************************************
histogram pct_ch_ceopay if(sample_yr==2), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_ceopay_yr2.png", as(png) replace

***********************************************
*Panel B - Change in CEO Pay Reporting Year 2-3
****************************** *****************
histogram pct_ch_ceopay if(sample_yr==3), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_ceopay_yr3.png", as(png) replace

***********************************************
*Panel C - Change in CEO Pay Reporting Year 3-4
****************************** *****************
histogram pct_ch_ceopay if(sample_yr==4), percent ytitle(Percent of Sample) xtitle(Change in CEO Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_ceopay_yr4.png", as(png) replace

***********************************************************
*Panel D - Change in Median Employee Pay Reporting Year 1-2
****************************** ****************************
histogram pct_ch_mepay if(sample_yr==2) , percent ytitle(Percent of Sample) xtitle(Change in Median Employee Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_medpay_yr2.png", as(png) replace

***********************************************************
*Panel E - Change in Median Employee Pay Reporting Year 2-3
****************************** ****************************
histogram pct_ch_mepay if(sample_yr==3), percent ytitle(Percent of Sample) xtitle(Change in Median Employee Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_medpay_yr3.png", as(png) replace

***********************************************************
*Panel F - Change in Median Employee Pay Reporting Year 3-4
****************************** ****************************
histogram pct_ch_mepay if(sample_yr==4), percent ytitle(Percent of Sample) xtitle(Change in Median Employee Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA3_histogram_pct_ch_medpay_yr4.png", as(png) replace
